10 POKE51,0:POKE52,88:POKE55,0:POKE56,88
15 PRINT"[147][154]":POKE53280,14:POKE53281,6
20 IFA=0THENA=1:LOAD"BFX.ML",8,1
30 POKE784,76:POKE785,54:POKE786,198:REM USR TO POINT TO JOYMOV
40 SYS50561:REM RESET
50 SYS50715:REM GOTEXT
60 POKE53280,PEEK(646)
70 PRINT"[147]BITMAP EFFECTS - (C)1990 COMPUTE! PUB.  [146]";
80 PRINT" [RETURN]=HELP TOGGLE    X = EXIT":PRINT
90 PRINT"SCREEN COMMANDS; USE COMMODORE KEY WITH [146]";
100 PRINT" [L]=LOAD INTO 1        [S]=SAVE FROM 1"
110 PRINT" [X]=EXCHANGE 1 AND 2   [B]=BLANK 1"
120 PRINT" [R]=REPRODUCE 1 ON 2   [I]=INVERT 1":PRINT
130 PRINT"EDIT; JOYSTICK=MOVE BUTTON=SLOW         [146]";
140 PRINT" [CLR]=RESET         [P]=PASTE AT DOTS"
150 PRINT" [C]=CUT-COPY        [E]=ERASE AT DOTS"
160 PRINT" [O]=OUTLINE EDGES   [T]=TOGGLE AT DOTS"
170 PRINT" [\]=FLIP 90 DEGREES"
180 PRINT" [+]=FLIP AROUND VERTICAL CENTERLINE"
190 PRINT" [-]=FLIP AROUND HORIZONTAL CENTERLINE"
200 PRINT" [F1/F3]=TWIST VERTICALLY"
210 PRINT" [F5/F7]=TWIST HORIZONTALLY"
220 PRINT" [F2/F4]=ROTATE"
230 PRINT" [HOME]=UNTWIST/UNROTATE":PRINT
250 PRINT"DRAW/ERASE; JOYSTICK=MOVE               [146]";
260 PRINT" [F6]=DRAW MODE, FIREBUTTON=DRAW"
270 PRINT" [F8]=ERASE MODE, FIREBUTTON=ERASE"
280 PRINT" ANY KEY TO RETURN TO EDIT MODE"
290 REM
300 REM
310 A=USR(0)
320 IFA=182THENPRINT"[147] LOAD SCREEN:":GOTO360
330 IFA=174THENPRINT"[147] SAVE SCREEN:":GOTO360
340 IFA=13THEN430
345 IFA=88THENSYS50715:END
350 GOTO310
360 PRINT" (USE 'DD' PREFIX FOR DOODLE FORMAT)"
370 INPUT" FILENAME";F$
380 S=96+4*(LEFT$(F$,2)="DD")
390 POKE50612,S:POKE50631,S
400 IFA=182THENSYS50604F$,8,0
410 IFA=174THENSYS50623F$,8,0
420 GOTO60
430 SYS50684:REM GOHIRZ
440 A=USR(0)
450 IFA=13THEN50
460 IFA=182ORA=174THENSYS50715:GOTO320
470 IFA=67THENSYS50315:REM CUT
480 IFA=80THENSYS50397:REM PASTE DOTS
490 IFA=69THENSYS50394:REM PASTE HOLES
500 IFA=84THENSYS50400:REM PASTE TOGGLE
510 IFA=43THENSYS50032:REM VERT
520 IFA=45THENSYS49987:REM HORIZ
530 IFA=92THENSYS50080:REM ROTATE
540 IFA=133THENSYS49318:REM GOUP
550 IFA=134THENSYS49325:REM GODOWN
560 IFA=135THENSYS49332:REM GORITE
570 IFA=136THENSYS49339:REM GOLEFT
580 IFA=147THENSYS50561:REM RESET
590 IFA=137THENSYS49346:REM RT3UP2
600 IFA=138THENSYS49353:REM LT3DN2
610 IFA=19THENSYS50587:REM HOME
620 IFA=162THENSYS51152:REM INVERT
630 IFA=178THENSYS51193:REM SCOPY
640 IFA=189THENSYS51215:REM SSWAP
650 IFA=191THENSYS51174:REM SBLANK
660 IFA=79THENSYS51006:REM TRACE
670 IFA=139THENSYS50908:REM DRAW
680 IFA=140THENSYS50905:REM ERASE
685 PRINTA
690 IFA=88THENSYS50715:END
700 GOTO440